/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / R / RR 10.X Bat Proc.cpt / BBS Prompt.SAVE

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 42 42 53 20 50 72 | 6f 6d 70 74 2e 53 41 56 |..BBS Pr|ompt.SAV|
|00000010| 45 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |E.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 41 43 | 41 01 00 00 00 00 00 00 |.TEXTMAC|A.......|
|00000050| 00 00 00 00 00 12 64 00 | 00 01 64 9e 39 6c 37 9e |......d.|..d.9l7.|
|00000060| 39 6c 37 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9l7.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 67 55 00 00 |........|....gU..|
|00000080| 28 42 42 53 20 50 72 6f | 6d 70 74 20 2d 20 70 72 |(BBS Pro|mpt - pr|
|00000090| 6f 63 20 74 6f 20 64 6f | 20 62 61 74 63 68 20 64 |oc to do| batch d|
|000000a0| 69 61 6c 69 6e 67 20 6f | 66 20 6c 6f 63 61 6c 20 |ialing o|f local |
|000000b0| 42 42 53 d5 29 0d 28 77 | 65 27 72 65 20 68 65 72 |BBS.).(w|e're her|
|000000c0| 65 20 62 65 63 61 75 73 | 65 20 74 68 65 20 75 73 |e becaus|e the us|
|000000d0| 65 72 20 77 61 6e 74 65 | 64 20 74 6f 20 62 65 20 |er wante|d to be |
|000000e0| 70 72 6f 6d 70 74 65 64 | 20 62 65 66 6f 72 65 29 |prompted| before)|
|000000f0| 0d 28 64 69 61 6c 69 6e | 67 20 65 61 63 68 20 42 |.(dialin|g each B|
|00000100| 42 53 29 20 0d 28 4c 6f | 67 6f 6e 20 70 72 6f 63 |BS) .(Lo|gon proc|
|00000110| 73 20 63 61 6c 6c 20 48 | 41 4e 47 20 55 50 20 70 |s call H|ANG UP p|
|00000120| 72 6f 63 20 69 66 20 6e | 6f 20 63 6f 6e 6e 65 63 |roc if n|o connec|
|00000130| 74 20 61 6e 64 20 63 6f | 6d 65 20 62 61 63 6b 20 |t and co|me back |
|00000140| 74 6f 20 62 61 74 63 68 | 20 66 69 6c 65 29 0d 28 |to batch| file).(|
|00000150| 77 69 74 68 20 74 68 65 | 20 43 24 20 66 6c 61 67 |with the| C$ flag|
|00000160| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 20 | contain|ing the |
|00000170| 42 42 53 20 6e 61 6d 65 | 20 73 69 67 6e 61 6c 69 |BBS name| signali|
|00000180| 6e 67 20 62 61 74 63 68 | 20 6d 6f 64 65 29 0d 28 |ng batch| mode).(|
|00000190| 43 52 41 57 4c 20 4f 4e | 29 0d 28 4c 4f 55 44 29 |CRAWL ON|).(LOUD)|
|000001a0| 0d 28 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.(------|--------|
|000001b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 29 0d 3a 49 4e 49 | 54 0d 55 53 45 52 4f 50 |--).:INI|T.USEROP|
|000001f0| 45 4e 49 20 32 2c 48 44 | 20 33 30 3a 52 52 3a 4d |ENI 2,HD| 30:RR:M|
|00000200| 61 63 72 6f 73 3a 42 42 | 53 3a 42 42 53 20 6e 61 |acros:BB|S:BBS na|
|00000210| 6d 65 73 0d 45 52 41 53 | 45 20 58 24 0d 45 52 41 |mes.ERAS|E X$.ERA|
|00000220| 53 45 20 59 24 0d 45 52 | 41 53 45 20 5a 24 0d 43 |SE Y$.ER|ASE Z$.C|
|00000230| 4f 4e 54 41 49 4e 53 20 | 52 24 2c 42 41 54 20 46 |ONTAINS |R$,BAT F|
|00000240| 49 4c 45 20 4f 50 45 4e | 0d 49 46 20 59 45 53 20 |ILE OPEN|.IF YES |
|00000250| 4a 55 4d 50 54 4f 20 52 | 45 41 44 5f 4e 41 4d 45 |JUMPTO R|EAD_NAME|
|00000260| 53 0d 49 46 20 4e 4f 20 | 4a 55 4d 50 54 4f 20 46 |S.IF NO |JUMPTO F|
|00000270| 49 52 53 54 5f 54 49 4d | 45 0d 28 2d 2d 2d 2d 2d |IRST_TIM|E.(-----|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 29 0d 3a 46 49 |--------|---).:FI|
|000002c0| 52 53 54 5f 54 49 4d 45 | 0d 28 41 25 20 69 73 20 |RST_TIME|.(A% is |
|000002d0| 42 42 53 5f 4e 75 6d 20 | 70 6f 69 6e 74 65 72 20 |BBS_Num |pointer |
|000002e0| 2d 20 69 2e 65 2e 20 77 | 68 69 63 68 20 42 42 53 |- i.e. w|hich BBS|
|000002f0| 20 69 73 20 67 6f 69 6e | 67 20 74 6f 20 63 61 6c | is goin|g to cal|
|00000300| 6c 65 64 29 0d 28 69 6e | 63 72 65 6d 65 6e 74 65 |led).(in|cremente|
|00000310| 64 20 62 79 20 74 68 65 | 20 48 41 4e 47 20 55 50 |d by the| HANG UP|
|00000320| 20 70 72 6f 63 20 61 6e | 64 20 63 68 65 63 6b 65 | proc an|d checke|
|00000330| 64 20 62 79 20 65 61 63 | 68 20 42 42 53 20 4c 61 |d by eac|h BBS La|
|00000340| 62 65 6c 29 0d 4c 45 54 | 20 45 51 55 41 4c 20 41 |bel).LET| EQUAL A|
|00000350| 25 2c 30 0d 28 43 24 20 | 69 73 20 61 20 66 6c 61 |%,0.(C$ |is a fla|
|00000360| 67 20 74 6f 20 69 6e 64 | 69 63 61 74 65 20 69 66 |g to ind|icate if|
|00000370| 20 77 65 20 61 72 65 20 | 69 6e 20 42 61 74 63 68 | we are |in Batch|
|00000380| 20 6d 6f 64 65 29 0d 45 | 52 41 53 45 20 43 24 0d | mode).E|RASE C$.|
|00000390| 28 44 24 20 69 73 20 61 | 20 66 6c 61 67 20 74 6f |(D$ is a| flag to|
|000003a0| 20 69 6e 64 69 63 61 74 | 65 20 74 68 61 74 20 61 | indicat|e that a|
|000003b0| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 20 77 61 73 20 | connect|ion was |
|000003c0| 6d 61 64 65 20 77 69 74 | 68 20 74 68 65 20 42 42 |made wit|h the BB|
|000003d0| 53 29 0d 45 52 41 53 45 | 20 44 24 0d 3a 42 41 54 |S).ERASE| D$.:BAT|
|000003e0| 5f 4f 50 45 4e 0d 28 73 | 65 74 74 69 6e 67 20 66 |_OPEN.(s|etting f|
|000003f0| 6c 61 67 20 74 68 61 74 | 20 62 61 74 20 66 69 6c |lag that| bat fil|
|00000400| 65 20 69 6e 70 75 74 20 | 66 69 6c 65 20 69 73 20 |e input |file is |
|00000410| 4f 50 45 4e 65 64 20 74 | 68 65 20 66 69 72 73 74 |OPENed t|he first|
|00000420| 20 74 69 6d 65 20 74 68 | 72 75 29 0d 43 4f 50 59 | time th|ru).COPY|
|00000430| 49 4e 54 4f 20 52 24 2c | 42 41 54 20 46 49 4c 45 |INTO R$,|BAT FILE|
|00000440| 20 4f 50 45 4e 0d 28 2d | 2d 2d 2d 2d 2d 2d 2d 2d | OPEN.(-|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 29 | 0d 3a 52 45 41 44 5f 4e |-------)|.:READ_N|
|00000490| 41 4d 45 53 0d 45 52 41 | 53 45 20 41 24 0d 55 53 |AMES.ERA|SE A$.US|
|000004a0| 45 52 52 45 41 44 20 32 | 2c 41 24 0d 49 46 20 45 |ERREAD 2|,A$.IF E|
|000004b0| 52 52 4f 52 20 4a 55 4d | 50 54 4f 20 45 52 52 4f |RROR JUM|PTO ERRO|
|000004c0| 52 5f 43 4c 4f 53 45 5f | 45 4e 44 0d 43 4f 4e 54 |R_CLOSE_|END.CONT|
|000004d0| 41 49 4e 53 20 41 24 2c | 2a 2a 2a 20 45 4e 44 20 |AINS A$,|*** END |
|000004e0| 2a 2a 2a 0d 28 69 66 20 | 74 68 65 20 73 74 72 69 |***.(if |the stri|
|000004f0| 6e 67 20 d4 2a 2a 2a 20 | 45 4e 44 20 2a 2a 2a d5 |ng .*** |END ***.|
|00000500| 20 69 73 20 72 65 61 64 | 2c 20 77 65 20 64 6f 6e | is read|, we don|
|00000510| d5 74 20 68 61 76 65 20 | 61 6e 79 20 6f 74 68 65 |.t have |any othe|
|00000520| 72 20 42 42 53 d5 20 74 | 6f 20 64 69 61 6c 29 0d |r BBS. t|o dial).|
|00000530| 49 46 20 59 45 53 20 4a | 55 4d 50 54 4f 20 43 4c |IF YES J|UMPTO CL|
|00000540| 4f 53 45 5f 45 4e 44 0d | 28 2d 2d 2d 2d 2d 2d 2d |OSE_END.|(-------|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 29 0d 3a 41 4c 4c 5f |--------|-).:ALL_|
|00000590| 50 52 4f 4d 50 54 53 0d | 43 4f 4e 54 41 49 4e 53 |PROMPTS.|CONTAINS|
|000005a0| 20 41 24 2c 4d 41 43 51 | 55 45 55 45 20 42 42 53 | A$,MACQ|UEUE BBS|
|000005b0| 0d 49 46 20 59 45 53 20 | 4a 55 4d 50 54 4f 20 4d |.IF YES |JUMPTO M|
|000005c0| 41 43 51 55 45 55 45 5f | 50 52 4f 4d 50 54 0d 43 |ACQUEUE_|PROMPT.C|
|000005d0| 4f 4e 54 41 49 4e 53 20 | 41 24 2c 4d 41 43 46 49 |ONTAINS |A$,MACFI|
|000005e0| 44 4f 20 42 42 53 0d 49 | 46 20 59 45 53 20 4a 55 |DO BBS.I|F YES JU|
|000005f0| 4d 50 54 4f 20 4d 41 43 | 46 49 44 4f 5f 50 52 4f |MPTO MAC|FIDO_PRO|
|00000600| 4d 50 54 0d 43 4f 4e 54 | 41 49 4e 53 20 41 24 2c |MPT.CONT|AINS A$,|
|00000610| 4d 41 43 43 49 52 43 4c | 45 53 20 42 42 53 0d 49 |MACCIRCL|ES BBS.I|
|00000620| 46 20 59 45 53 20 4a 55 | 4d 50 54 4f 20 4d 41 43 |F YES JU|MPTO MAC|
|00000630| 43 49 52 43 4c 45 53 5f | 50 52 4f 4d 50 54 0d 43 |CIRCLES_|PROMPT.C|
|00000640| 4f 4e 54 41 49 4e 53 20 | 41 24 2c 4d 41 43 49 4e |ONTAINS |A$,MACIN|
|00000650| 46 4f 20 42 42 53 0d 49 | 46 20 59 45 53 20 4a 55 |FO BBS.I|F YES JU|
|00000660| 4d 50 54 4f 20 4d 41 43 | 49 4e 46 4f 5f 50 52 4f |MPTO MAC|INFO_PRO|
|00000670| 4d 50 54 0d 43 4f 4e 54 | 41 49 4e 53 20 41 24 2c |MPT.CONT|AINS A$,|
|00000680| 42 4d 55 47 20 42 42 53 | 0d 49 46 20 59 45 53 20 |BMUG BBS|.IF YES |
|00000690| 4a 55 4d 50 54 4f 20 42 | 4d 55 47 5f 50 52 4f 4d |JUMPTO B|MUG_PROM|
|000006a0| 50 54 0d 43 4f 4e 54 41 | 49 4e 53 20 41 24 2c 4d |PT.CONTA|INS A$,M|
|000006b0| 2e 41 2e 43 2e 20 42 42 | 53 0d 49 46 20 59 45 53 |.A.C. BB|S.IF YES|
|000006c0| 20 4a 55 4d 50 54 4f 20 | 4d 2e 41 2e 43 2e 5f 50 | JUMPTO |M.A.C._P|
|000006d0| 52 4f 4d 50 54 0d 43 4f | 4e 54 41 49 4e 53 20 41 |ROMPT.CO|NTAINS A|
|000006e0| 24 2c 4d 41 43 48 45 41 | 56 45 4e 20 42 42 53 0d |$,MACHEA|VEN BBS.|
|000006f0| 49 46 20 59 45 53 20 4a | 55 4d 50 54 4f 20 4d 41 |IF YES J|UMPTO MA|
|00000700| 43 48 45 41 56 45 4e 5f | 50 52 4f 4d 50 54 0d 45 |CHEAVEN_|PROMPT.E|
|00000710| 4d 50 54 59 20 41 24 0d | 49 46 20 59 45 53 20 4a |MPTY A$.|IF YES J|
|00000720| 55 4d 50 54 4f 20 45 52 | 52 4f 52 5f 43 4c 4f 53 |UMPTO ER|ROR_CLOS|
|00000730| 45 5f 45 4e 44 0d 28 2d | 2d 2d 2d 2d 2d 2d 2d 2d |E_END.(-|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 29 | 0d 3a 4d 41 43 51 55 45 |-------)|.:MACQUE|
|00000780| 55 45 5f 50 52 4f 4d 50 | 54 0d 45 4d 50 54 59 20 |UE_PROMP|T.EMPTY |
|00000790| 45 24 0d 49 46 20 4e 4f | 20 4a 55 4d 50 54 4f 20 |E$.IF NO| JUMPTO |
|000007a0| 41 4c 52 45 41 44 59 5f | 43 4f 4e 4e 45 43 54 45 |ALREADY_|CONNECTE|
|000007b0| 44 0d 54 45 53 54 20 41 | 25 20 3e 3d 20 31 0d 49 |D.TEST A|% >= 1.I|
|000007c0| 46 20 59 45 53 20 4a 55 | 4d 50 54 4f 20 52 45 41 |F YES JU|MPTO REA|
|000007d0| 44 5f 4e 41 4d 45 53 0d | 43 4f 50 59 49 4e 54 4f |D_NAMES.|COPYINTO|
|000007e0| 20 43 24 2c 41 24 0d 43 | 4f 50 59 49 4e 54 4f 20 | C$,A$.C|OPYINTO |
|000007f0| 59 24 2c 44 6f 20 79 6f | 75 20 77 61 6e 74 20 74 |Y$,Do yo|u want t|
|00000800| 6f 20 44 69 61 6c 20 4d | 61 63 51 75 65 75 65 20 |o Dial M|acQueue |
|00000810| 69 6e 20 53 2e 46 2e 3f | 0d 51 55 45 52 59 33 0d |in S.F.?|.QUERY3.|
|00000820| 49 46 20 4e 4f 20 4a 55 | 4d 50 54 4f 20 52 45 41 |IF NO JU|MPTO REA|
|00000830| 44 5f 4e 41 4d 45 53 0d | 44 4f 20 48 44 20 33 30 |D_NAMES.|DO HD 30|
|00000840| 3a 52 52 3a 4d 61 63 72 | 6f 73 3a 42 42 53 3a 4d |:RR:Macr|os:BBS:M|
|00000850| 41 43 51 55 45 55 45 2e | 50 52 4f 43 0d 28 2d 2d |ACQUEUE.|PROC.(--|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 29 0d |--------|------).|
|000008a0| 3a 4d 41 43 46 49 44 4f | 5f 50 52 4f 4d 50 54 0d |:MACFIDO|_PROMPT.|
|000008b0| 45 4d 50 54 59 20 46 24 | 0d 49 46 20 4e 4f 20 4a |EMPTY F$|.IF NO J|
|000008c0| 55 4d 50 54 4f 20 41 4c | 52 45 41 44 59 5f 43 4f |UMPTO AL|READY_CO|
|000008d0| 4e 4e 45 43 54 45 44 0d | 54 45 53 54 20 41 25 20 |NNECTED.|TEST A% |
|000008e0| 3e 3d 20 32 0d 49 46 20 | 59 45 53 20 4a 55 4d 50 |>= 2.IF |YES JUMP|
|000008f0| 54 4f 20 52 45 41 44 5f | 4e 41 4d 45 53 0d 43 4f |TO READ_|NAMES.CO|
|00000900| 50 59 49 4e 54 4f 20 43 | 24 2c 41 24 0d 43 4f 50 |PYINTO C|$,A$.COP|
|00000910| 59 49 4e 54 4f 20 59 24 | 2c 44 6f 20 79 6f 75 20 |YINTO Y$|,Do you |
|00000920| 77 61 6e 74 20 74 6f 20 | 44 69 61 6c 20 4d 61 63 |want to |Dial Mac|
|00000930| 46 69 64 6f 20 54 72 69 | 62 75 6e 65 20 42 42 53 |Fido Tri|bune BBS|
|00000940| 20 69 6e 20 53 2e 46 2e | 3f 0d 51 55 45 52 59 33 | in S.F.|?.QUERY3|
|00000950| 0d 49 46 20 4e 4f 20 4a | 55 4d 50 54 4f 20 52 45 |.IF NO J|UMPTO RE|
|00000960| 41 44 5f 4e 41 4d 45 53 | 0d 44 4f 20 48 44 20 33 |AD_NAMES|.DO HD 3|
|00000970| 30 3a 52 52 3a 4d 61 63 | 72 6f 73 3a 42 42 53 3a |0:RR:Mac|ros:BBS:|
|00000980| 4d 41 43 46 49 44 4f 20 | 42 42 53 2e 50 52 4f 43 |MACFIDO |BBS.PROC|
|00000990| 0d 28 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.(------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 29 0d 3a 4d 41 43 | 43 49 52 43 4c 45 53 5f |--).:MAC|CIRCLES_|
|000009e0| 50 52 4f 4d 50 54 0d 45 | 4d 50 54 59 20 48 24 0d |PROMPT.E|MPTY H$.|
|000009f0| 49 46 20 4e 4f 20 4a 55 | 4d 50 54 4f 20 41 4c 52 |IF NO JU|MPTO ALR|
|00000a00| 45 41 44 59 5f 43 4f 4e | 4e 45 43 54 45 44 0d 54 |EADY_CON|NECTED.T|
|00000a10| 45 53 54 20 41 25 20 3e | 3d 20 33 0d 49 46 20 59 |EST A% >|= 3.IF Y|
|00000a20| 45 53 20 4a 55 4d 50 54 | 4f 20 52 45 41 44 5f 4e |ES JUMPT|O READ_N|
|00000a30| 41 4d 45 53 0d 43 4f 50 | 59 49 4e 54 4f 20 43 24 |AMES.COP|YINTO C$|
|00000a40| 2c 41 24 0d 43 4f 50 59 | 49 4e 54 4f 20 59 24 2c |,A$.COPY|INTO Y$,|
|00000a50| 44 6f 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 44 |Do you w|ant to D|
|00000a60| 69 61 6c 20 4d 61 63 43 | 69 72 63 6c 65 73 20 42 |ial MacC|ircles B|
|00000a70| 42 53 20 69 6e 20 50 6c | 65 61 73 61 6e 74 6f 6e |BS in Pl|easanton|
|00000a80| 3f 0d 51 55 45 52 59 33 | 0d 49 46 20 4e 4f 20 4a |?.QUERY3|.IF NO J|
|00000a90| 55 4d 50 54 4f 20 52 45 | 41 44 5f 4e 41 4d 45 53 |UMPTO RE|AD_NAMES|
|00000aa0| 0d 44 4f 20 48 44 20 33 | 30 3a 52 52 3a 4d 61 63 |.DO HD 3|0:RR:Mac|
|00000ab0| 72 6f 73 3a 42 42 53 3a | 4d 61 63 43 69 72 63 6c |ros:BBS:|MacCircl|
|00000ac0| 65 73 2e 50 52 4f 43 0d | 28 2d 2d 2d 2d 2d 2d 2d |es.PROC.|(-------|
|00000ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 29 0d 3a 4d 41 43 49 |--------|-).:MACI|
|00000b10| 4e 46 4f 5f 50 52 4f 4d | 50 54 0d 45 4d 50 54 59 |NFO_PROM|PT.EMPTY|
|00000b20| 20 4a 24 0d 49 46 20 4e | 4f 20 4a 55 4d 50 54 4f | J$.IF N|O JUMPTO|
|00000b30| 20 41 4c 52 45 41 44 59 | 5f 43 4f 4e 4e 45 43 54 | ALREADY|_CONNECT|
|00000b40| 45 44 0d 54 45 53 54 20 | 41 25 20 3e 3d 20 34 0d |ED.TEST |A% >= 4.|
|00000b50| 49 46 20 59 45 53 20 4a | 55 4d 50 54 4f 20 52 45 |IF YES J|UMPTO RE|
|00000b60| 41 44 5f 4e 41 4d 45 53 | 0d 43 4f 50 59 49 4e 54 |AD_NAMES|.COPYINT|
|00000b70| 4f 20 43 24 2c 41 24 0d | 43 4f 50 59 49 4e 54 4f |O C$,A$.|COPYINTO|
|00000b80| 20 59 24 2c 44 6f 20 79 | 6f 75 20 77 61 6e 74 20 | Y$,Do y|ou want |
|00000b90| 74 6f 20 44 69 61 6c 20 | 4d 61 63 49 6e 66 6f 20 |to Dial |MacInfo |
|00000ba0| 42 42 53 20 69 6e 20 46 | 72 65 6d 6f 6e 74 3f 0d |BBS in F|remont?.|
|00000bb0| 51 55 45 52 59 33 0d 49 | 46 20 4e 4f 20 4a 55 4d |QUERY3.I|F NO JUM|
|00000bc0| 50 54 4f 20 52 45 41 44 | 5f 4e 41 4d 45 53 0d 44 |PTO READ|_NAMES.D|
|00000bd0| 4f 20 48 44 20 33 30 3a | 52 52 3a 4d 61 63 72 6f |O HD 30:|RR:Macro|
|00000be0| 73 3a 42 42 53 3a 4d 61 | 63 49 6e 66 6f 2e 50 52 |s:BBS:Ma|cInfo.PR|
|00000bf0| 4f 43 0d 28 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |OC.(----|--------|
|00000c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c30| 2d 2d 2d 2d 29 0d 3a 42 | 4d 55 47 5f 50 52 4f 4d |----).:B|MUG_PROM|
|00000c40| 50 54 0d 45 4d 50 54 59 | 20 49 24 0d 49 46 20 4e |PT.EMPTY| I$.IF N|
|00000c50| 4f 20 4a 55 4d 50 54 4f | 20 41 4c 52 45 41 44 59 |O JUMPTO| ALREADY|
|00000c60| 5f 43 4f 4e 4e 45 43 54 | 45 44 0d 54 45 53 54 20 |_CONNECT|ED.TEST |
|00000c70| 41 25 20 3e 3d 20 35 0d | 49 46 20 59 45 53 20 4a |A% >= 5.|IF YES J|
|00000c80| 55 4d 50 54 4f 20 52 45 | 41 44 5f 4e 41 4d 45 53 |UMPTO RE|AD_NAMES|
|00000c90| 0d 43 4f 50 59 49 4e 54 | 4f 20 43 24 2c 41 24 0d |.COPYINT|O C$,A$.|
|00000ca0| 43 4f 50 59 49 4e 54 4f | 20 59 24 2c 44 6f 20 79 |COPYINTO| Y$,Do y|
|00000cb0| 6f 75 20 77 61 6e 74 20 | 74 6f 20 44 69 61 6c 20 |ou want |to Dial |
|00000cc0| 42 4d 55 47 20 42 42 53 | 20 69 6e 20 42 65 72 6b |BMUG BBS| in Berk|
|00000cd0| 65 6c 65 79 3f 0d 51 55 | 45 52 59 33 0d 49 46 20 |eley?.QU|ERY3.IF |
|00000ce0| 4e 4f 20 4a 55 4d 50 54 | 4f 20 52 45 41 44 5f 4e |NO JUMPT|O READ_N|
|00000cf0| 41 4d 45 53 0d 44 4f 20 | 48 44 20 33 30 3a 52 52 |AMES.DO |HD 30:RR|
|00000d00| 3a 4d 61 63 72 6f 73 3a | 42 42 53 3a 42 4d 55 47 |:Macros:|BBS:BMUG|
|00000d10| 20 42 42 53 2e 50 52 4f | 43 0d 28 2d 2d 2d 2d 2d | BBS.PRO|C.(-----|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 29 0d 3a 4d 2e |--------|---).:M.|
|00000d60| 41 2e 43 2e 5f 50 52 4f | 4d 50 54 0d 45 4d 50 54 |A.C._PRO|MPT.EMPT|
|00000d70| 59 20 4b 24 0d 49 46 20 | 4e 4f 20 4a 55 4d 50 54 |Y K$.IF |NO JUMPT|
|00000d80| 4f 20 41 4c 52 45 41 44 | 59 5f 43 4f 4e 4e 45 43 |O ALREAD|Y_CONNEC|
|00000d90| 54 45 44 0d 54 45 53 54 | 20 41 25 20 3e 3d 20 36 |TED.TEST| A% >= 6|
|00000da0| 0d 49 46 20 59 45 53 20 | 4a 55 4d 50 54 4f 20 52 |.IF YES |JUMPTO R|
|00000db0| 45 41 44 5f 4e 41 4d 45 | 53 0d 43 4f 50 59 49 4e |EAD_NAME|S.COPYIN|
|00000dc0| 54 4f 20 43 24 2c 41 24 | 0d 43 4f 50 59 49 4e 54 |TO C$,A$|.COPYINT|
|00000dd0| 4f 20 59 24 2c 44 6f 20 | 79 6f 75 20 77 61 6e 74 |O Y$,Do |you want|
|00000de0| 20 74 6f 20 44 69 61 6c | 20 4d 2e 41 2e 43 2e 20 | to Dial| M.A.C. |
|00000df0| 42 42 53 20 69 6e 20 42 | 65 72 6b 65 6c 65 79 3f |BBS in B|erkeley?|
|00000e00| 0d 51 55 45 52 59 33 0d | 49 46 20 4e 4f 20 4a 55 |.QUERY3.|IF NO JU|
|00000e10| 4d 50 54 4f 20 52 45 41 | 44 5f 4e 41 4d 45 53 0d |MPTO REA|D_NAMES.|
|00000e20| 44 4f 20 48 44 20 33 30 | 3a 52 52 3a 4d 61 63 72 |DO HD 30|:RR:Macr|
|00000e30| 6f 73 3a 42 42 53 3a 4d | 2e 41 2e 43 2e 20 42 42 |os:BBS:M|.A.C. BB|
|00000e40| 53 2e 50 52 4f 43 0d 28 | 2d 2d 2d 2d 2d 2d 2d 2d |S.PROC.(|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 29 0d 3a 4d 41 43 48 45 |--------|).:MACHE|
|00000e90| 41 56 45 4e 5f 50 52 4f | 4d 50 54 0d 45 4d 50 54 |AVEN_PRO|MPT.EMPT|
|00000ea0| 59 20 4c 24 0d 49 46 20 | 4e 4f 20 4a 55 4d 50 54 |Y L$.IF |NO JUMPT|
|00000eb0| 4f 20 41 4c 52 45 41 44 | 59 5f 43 4f 4e 4e 45 43 |O ALREAD|Y_CONNEC|
|00000ec0| 54 45 44 0d 54 45 53 54 | 20 41 25 20 3e 3d 20 37 |TED.TEST| A% >= 7|
|00000ed0| 0d 49 46 20 59 45 53 20 | 4a 55 4d 50 54 4f 20 52 |.IF YES |JUMPTO R|
|00000ee0| 45 41 44 5f 4e 41 4d 45 | 53 0d 43 4f 50 59 49 4e |EAD_NAME|S.COPYIN|
|00000ef0| 54 4f 20 43 24 2c 41 24 | 0d 43 4f 50 59 49 4e 54 |TO C$,A$|.COPYINT|
|00000f00| 4f 20 59 24 2c 44 6f 20 | 79 6f 75 20 77 61 6e 74 |O Y$,Do |you want|
|00000f10| 20 74 6f 20 44 69 61 6c | 20 4d 61 63 48 65 61 76 | to Dial| MacHeav|
|00000f20| 65 6e 20 42 42 53 20 69 | 6e 20 53 61 6e 20 52 61 |en BBS i|n San Ra|
|00000f30| 66 61 65 6c 3f 0d 51 55 | 45 52 59 33 0d 49 46 20 |fael?.QU|ERY3.IF |
|00000f40| 4e 4f 20 4a 55 4d 50 54 | 4f 20 52 45 41 44 5f 4e |NO JUMPT|O READ_N|
|00000f50| 41 4d 45 53 0d 44 4f 20 | 48 44 20 33 30 3a 52 52 |AMES.DO |HD 30:RR|
|00000f60| 3a 4d 61 63 72 6f 73 3a | 42 42 53 3a 4d 61 63 48 |:Macros:|BBS:MacH|
|00000f70| 65 61 76 65 6e 2e 50 52 | 4f 43 0d 28 2d 2d 2d 2d |eaven.PR|OC.(----|
|00000f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 29 0d 28 74 |--------|----).(t|
|00000fc0| 68 69 73 20 69 73 20 74 | 68 65 20 65 6e 64 20 6f |his is t|he end o|
|00000fd0| 66 20 50 72 6f 6d 70 74 | 65 64 20 64 69 61 6c 69 |f Prompt|ed diali|
|00000fe0| 6e 67 20 2d 20 6e 6f 77 | 20 67 6f 20 74 6f 20 43 |ng - now| go to C|
|00000ff0| 4c 4f 53 45 5f 45 4e 44 | 20 61 66 74 65 72 20 72 |LOSE_END| after r|
|00001000| 65 61 64 29 0d 3a 41 4c | 52 45 41 44 59 5f 43 4f |ead).:AL|READY_CO|
|00001010| 4e 4e 45 43 54 45 44 0d | 28 77 65 27 76 65 20 61 |NNECTED.|(we've a|
|00001020| 6c 72 65 61 64 79 20 62 | 65 65 6e 20 6c 6f 67 67 |lready b|een logg|
|00001030| 65 64 20 6f 6e 20 74 6f | 20 74 68 65 20 42 42 53 |ed on to| the BBS|
|00001040| 20 74 6f 64 61 79 29 0d | 43 4f 50 59 49 4e 54 4f | today).|COPYINTO|
|00001050| 20 58 24 2c 59 6f 75 20 | 68 61 76 65 20 61 6c 72 | X$,You |have alr|
|00001060| 65 61 64 79 20 43 6f 6e | 6e 65 63 74 65 64 20 77 |eady Con|nected w|
|00001070| 69 74 68 0d 43 4f 4e 43 | 41 54 20 58 24 2c 41 24 |ith.CONC|AT X$,A$|
|00001080| 0d 43 4f 50 59 49 4e 54 | 4f 20 59 24 2c 57 69 6c |.COPYINT|O Y$,Wil|
|00001090| 6c 20 61 74 74 65 6d 70 | 74 20 74 68 65 20 6e 65 |l attemp|t the ne|
|000010a0| 78 74 20 42 42 53 20 2e | 2e 2e 0d 51 55 45 52 59 |xt BBS .|...QUERY|
|000010b0| 32 0d 45 52 41 53 45 20 | 58 24 0d 45 52 41 53 45 |2.ERASE |X$.ERASE|
|000010c0| 20 59 24 0d 4a 55 4d 50 | 54 4f 20 52 45 41 44 5f | Y$.JUMP|TO READ_|
|000010d0| 4e 41 4d 45 53 0d 28 2d | 2d 2d 2d 2d 2d 2d 2d 2d |NAMES.(-|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001110| 2d 2d 2d 2d 2d 2d 2d 29 | 0d 3a 45 52 52 4f 52 5f |-------)|.:ERROR_|
|00001120| 43 4c 4f 53 45 5f 45 4e | 44 0d 54 59 50 45 20 54 |CLOSE_EN|D.TYPE T|
|00001130| 68 65 72 65 20 77 61 73 | 20 61 20 70 72 6f 62 6c |here was| a probl|
|00001140| 65 6d 20 64 75 72 69 6e | 67 20 74 68 65 20 52 45 |em durin|g the RE|
|00001150| 41 44 20 6f 66 20 74 68 | 65 20 42 42 53 20 4e 61 |AD of th|e BBS Na|
|00001160| 6d 65 73 20 66 69 6c 65 | 5e 4d 0d 54 59 50 45 20 |mes file|^M.TYPE |
|00001170| 45 6e 64 69 6e 67 20 74 | 68 69 73 20 62 61 74 63 |Ending t|his batc|
|00001180| 68 20 70 72 6f 63 65 64 | 75 72 65 20 2e 2e 2e 5e |h proced|ure ...^|
|00001190| 4d 0d 55 53 45 52 43 4c | 4f 53 45 20 32 0d 45 52 |M.USERCL|OSE 2.ER|
|000011a0| 41 53 45 20 41 4c 4c 0d | 45 4e 44 0d 28 2d 2d 2d |ASE ALL.|END.(---|
|000011b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 29 0d 3a |--------|-----).:|
|000011f0| 43 4c 4f 53 45 5f 45 4e | 44 0d 45 52 41 53 45 20 |CLOSE_EN|D.ERASE |
|00001200| 41 4c 4c 0d 43 4f 50 59 | 49 4e 54 4f 20 59 24 2c |ALL.COPY|INTO Y$,|
|00001210| 44 6f 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 73 |Do you w|ant to s|
|00001220| 74 61 72 74 20 6f 76 65 | 72 20 61 6e 64 20 67 6f |tart ove|r and go|
|00001230| 20 74 68 72 75 20 74 68 | 65 20 6c 69 73 74 20 61 | thru th|e list a|
|00001240| 67 61 69 6e 3f 0d 51 55 | 45 52 59 33 0d 49 46 20 |gain?.QU|ERY3.IF |
|00001250| 4e 4f 20 55 53 45 52 43 | 4c 4f 53 45 20 32 0d 49 |NO USERC|LOSE 2.I|
|00001260| 46 20 4e 4f 20 45 4e 44 | 0d 49 46 20 59 45 53 20 |F NO END|.IF YES |
|00001270| 55 53 45 52 43 4c 4f 53 | 45 20 32 0d 28 72 65 2d |USERCLOS|E 2.(re-|
|00001280| 69 6e 69 74 20 65 76 65 | 72 79 74 68 69 6e 67 20 |init eve|rything |
|00001290| 62 79 20 72 65 2d 73 74 | 61 72 74 69 6e 67 20 77 |by re-st|arting w|
|000012a0| 69 74 68 20 74 68 65 20 | 42 41 54 20 4f 50 45 4e |ith the |BAT OPEN|
|000012b0| 20 6c 6f 61 64 65 72 29 | 0d 44 4f 20 48 44 20 33 | loader)|.DO HD 3|
|000012c0| 30 3a 52 52 3a 4d 61 63 | 72 6f 73 3a 42 42 53 3a |0:RR:Mac|ros:BBS:|
|000012d0| 42 61 74 20 44 52 49 56 | 45 52 0d 45 4e 44 0d 0d |Bat DRIV|ER.END..|
|000012e0| 0d 0d 0d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 01 00 00 00 01 1e | 00 00 00 1e 00 00 00 46 |........|.......F|
|00001310| 04 43 6c eb 41 21 a9 0e | 30 34 64 e1 44 a3 1d 40 |.Cl.A!..|04d.D..@|
|00001320| 01 15 af 68 59 e0 60 88 | 6d 9d 84 79 91 c4 3f 10 |...hY.`.|m..y..?.|
|00001330| 0f 42 42 53 20 50 72 6f | 6d 70 74 2e 53 41 56 45 |.BBS Pro|mpt.SAVE|
|00001340| 02 00 00 00 54 45 58 54 | 4d 41 43 41 01 00 01 00 |....TEXT|MACA....|
|00001350| 00 00 54 45 58 54 4d 41 | 43 41 01 00 01 00 00 c0 |..TEXTMA|CA......|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 9d fa e1 67 00 00 | 12 6b 00 00 01 64 f1 a2 |.....g..|.k...d..|
|00001380| 25 42 6e 4e 9c 71 2d f8 | 4b 23 68 2f 18 1a 32 84 |%BnN.q-.|K#h/..2.|
|00001390| b4 91 69 74 20 18 ea 91 | 90 e7 cd fa d4 47 b7 b4 |..it ...|.....G..|
|000013a0| 2c f2 c8 db 48 29 ee 24 | a7 67 2c 07 63 86 d9 2d |,...H).$|.g,.c..-|
|000013b0| 04 00 99 4f 6c 34 d6 52 | 1c 50 89 42 98 76 29 bd |...Ol4.R|.P.B.v).|
|000013c0| a1 4a 75 10 30 31 c1 5f | 4a 54 33 61 87 33 e2 54 |.Ju.01._|JT3a.3.T|
|000013d0| bf 3d 82 07 a4 64 d1 f9 | 72 61 88 c2 78 04 20 00 |.=...d..|ra..x. .|
|000013e0| c4 da 4f d6 d8 08 80 90 | 11 f3 c3 85 12 59 4e 56 |..O.....|.....YNV|
|000013f0| a0 47 95 ae 80 2b ec d1 | d4 00 12 2c d3 c6 06 3b |.G...+..|...,...;|
|00001400| 00 00 00 0e 00 0a 0b 69 | 6d 61 67 65 57 52 49 54 |.......i|mageWRIT|
|00001410| 45 52 00 00 00 08 00 00 | 01 00 00 3c 00 02 00 00 |ER......|...<....|
|00001420| 01 00 00 00 01 1e 00 00 | 00 1e 00 00 00 46 00 01 |........|.....F..|
|00001430| f4 82 05 26 00 00 00 1c | 00 46 00 01 45 46 4e 54 |...&....|.F..EFNT|
|00001440| 00 00 00 12 6d 57 52 54 | 00 00 00 1e 03 eb ff ff |....mWRT|........|
|00001450| 00 00 00 00 00 06 80 0a | 00 00 ff ff 00 00 00 12 |........|........|
|00001460| 00 06 7f fa 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+